home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 2
/
Amiga Tools 2.iso
/
dfue
/
avmnfax
/
rexx
/
recordamigaps.avm
< prev
next >
Wrap
Text File
|
1995-03-09
|
535b
|
22 lines
/* */
parse upper arg compression fileName .
address command
say 'Recording'
samplingrate = '9600'
if pos('7200', compression) > 0
then samplingrate = '7200'
else if pos('8000', compression) > 0
then samplingrate = '8000'
else if pos('9600', compression) > 0
then samplingrate = '9600'
else if pos('6400', compression) > 0
then samplingrate = '6400'
'avm:agmsrecordsoundps3 avmtemp:temp.iff Hz=' || samplingrate
say 'Converting'
'avm:iff2adpcm avmtemp:temp.iff' compression fileName
say 'Done'
call setclip('playAmigaFile')